home *** CD-ROM | disk | FTP | other *** search
/ Rokenbok 2.7 / Rokenbok CD Vol-2.7z / Rokenbok CD Vol-2.iso / warranty_reply_2nd.asp < prev    next >
Text File  |  2002-01-30  |  13KB  |  305 lines
  1. <HTML>
  2. <HEAD>
  3. <TITLE>Rokenbok Toy Company | Thank you for contacting Rokenbok!</TITLE>
  4.  
  5. <!--
  6.  
  7.         Document Name: warranty_reply.asp 
  8.         Creation Date: 01.07.01
  9.         Modification History: 
  10.  
  11. -->
  12.  
  13.  
  14. </HEAD>
  15.  
  16. <BODY BGCOLOR="#FFFFFF" LEFTMARGIN="0" TOPMARGIN="0" MARGINWIDTH="0" MARGINHEIGHT="0" TEXT="#000000" LINK="0033CC" VLINK="#000066" ALINK="0033CC">
  17.  
  18. <% 
  19.  
  20.     '---------------------------------------------------
  21.     ' variables for Lyris
  22.     '---------------------------------------------------
  23.  
  24.     dim emailAddress     ' the From field
  25.     dim subscribeTo      ' the subject field for Lyris
  26.                          ' which is the mailing list subscribed to
  27.                          ' which is either text or aol
  28.   
  29.         
  30.     '---------------------------------------------------
  31.     ' variables for Warranty Registration
  32.     ' must use each name because a loop will not put them in order
  33.     '---------------------------------------------------
  34.     
  35.  
  36.     dim realname
  37.     dim Address
  38.     dim City
  39.     dim State
  40.     dim Zip
  41.     dim Country
  42.     dim Phone
  43.     dim Newsletter
  44.     dim ToyPurchased
  45.         dim ToyPurchased2
  46.     dim ToyPurchased3
  47.     dim    WhoPurchased
  48.     dim    FirstDiscover
  49.     dim    TypePurchase
  50.     dim    Features
  51.     dim    ReceiveAsGift
  52.     dim    ReasonForPurchase
  53.     dim    PricePaid
  54.     dim    StoreWherePurchased
  55.     dim    PurchaserIs
  56.     dim    PurchaserAge
  57.     dim    WhoToyIsFor
  58.     dim    NumToysOwned
  59.     dim    NumToysPurchased
  60.     dim    ChildrenUnder17InHouse
  61.     dim    AgeChildInHouse
  62.     dim    PersCompAtHome
  63.     dim    AccessToInternet
  64.     dim    SuggestionsForToys
  65.     dim    OtherProductsLikeToSee
  66.     dim    CompareToOtherToys 
  67.     dim OtherConstructionToys
  68.     dim    AnnualHouseholdIncome
  69.     dim    Problems
  70.     dim    KeyCode
  71.     
  72.     realname = Request.Form("realname")
  73.     Address = Request.Form("Address")
  74.     City = Request.Form("City")
  75.     State = Request.Form("State")
  76.     Zip = Request.Form("Zip")
  77.     Country = Request.Form("Country")
  78.     Phone = Request.Form("Phone")
  79.     Newsletter = Request.Form("Newsletter")
  80.     ToyPurchased = Request.Form("ToyPurchased")
  81.     ToyPurchased2 = Request.Form("ToyPurchased2")
  82.     ToyPurchased3 = Request.Form("ToyPurchased3")
  83.     WhoPurchased = Request.Form("WhoPurchased")
  84.     FirstDiscover = Request.Form("FirstDiscover")
  85.     TypePurchase = Request.Form("TypePurchase")
  86.     Features = Request.Form("Features")
  87.     ReceiveAsGift = Request.Form("ReceiveAsGift")
  88.     ReasonForPurchase = Request.Form("ReasonForPurchase")
  89.     PricePaid = Request.Form("PricePaid")
  90.     StoreWherePurchased = Request.Form("StoreWherePurchased")
  91.     PurchaserIs = Request.Form("PurchaserIs")    
  92.     PurchaserAge = Request.Form("PurchaserAge")        
  93.     WhoToyIsFor = Request.Form("WhoToyIsFor")
  94.     NumToysOwned = Request.Form("NumToysOwned")    
  95.     NumToysPurchased = Request.Form("NumToysPurchased")        
  96.     ChildrenUnder17InHouse = Request.Form("ChildrenUnder17InHouse")    
  97.     AgeChildInHouse = Request.Form("AgeChildInHouse")    
  98.     PersCompAtHome = Request.Form("PersCompAtHome")        
  99.     AccessToInternet = Request.Form("AccessToInternet")        
  100.     SuggestionsForToys = Request.Form("SuggestionsForToys")        
  101.     OtherProductsLikeToSee = Request.Form("OtherProductsLikeToSee")        
  102.     CompareToOtherToys = Request.Form("CompareToOtherToys")        
  103.     OtherConstructionToys = Request.Form("OtherConstructionToys")            
  104.     AnnualHouseholdIncome = Request.Form("AnnualHouseholdIncome")        
  105.     Problems = Request.Form("Problems")        
  106.     KeyCode = Request.Form("KeyCode")    
  107.  
  108.      dim subjectWarranty  ' the subject field for the warranty
  109.  
  110.         If Problems = "" Then
  111.             subjectWarranty = "Warranty"
  112.         Else
  113.             subjectWarranty = "Warranty - Action Required!"
  114.         End If    
  115.     
  116.     
  117.     
  118.     
  119.     '---------------------------------------------------
  120.     ' cstr converts to a string
  121.     '---------------------------------------------------
  122.     
  123.     emailAddress     = cstr(request.form("email"))
  124.     
  125.     '---------------------------------------------------------------------
  126.     ' test for aol email address
  127.     '---------------------------------------------------------------------
  128.     
  129.     if (instr(ucase(emailAddress),"@AOL.COM") > 0) then
  130.         subscribeTo = "subscribe rokenbok_updates_aol"
  131.         
  132.     '---------------------------------------------------------------------
  133.     ' not aol, or  plain list
  134.     '---------------------------------------------------------------------    
  135.         
  136.     else
  137.         subscribeTo = "subscribe rokenbok_updates"
  138.         
  139.     end if
  140.     
  141.     '---------------------------------------------------------------------
  142.     ' send email to lyris
  143.     '---------------------------------------------------------------------
  144.  
  145.     If Newsletter = "subscribe"   Then
  146.     
  147.     set cdoMail = Server.CreateObject("CDONTS.NewMail")
  148.             
  149.     cdoMail.to="lyris@lyris.rokenbok.com" 
  150.     cdoMail.from=emailAddress 
  151.     cdoMail.subject=subscribeTo
  152.     cdoMail.Body=" "
  153.     
  154.     cdoMail.Send
  155.         
  156.     set cdoMail=nothing
  157.  
  158.     
  159.     '---------------------------------------------------------------------
  160.     ' send confirmation to rokenbok
  161.     '---------------------------------------------------------------------
  162.  
  163.     
  164.     set cdoMail = Server.CreateObject("CDONTS.NewMail")
  165.     
  166.     cdoMail.to="maillist@rokenbok.com" 
  167.     cdoMail.from="Lyris" 
  168.     cdoMail.subject="register subscribe "  + emailAddress
  169.             
  170.     cdoMail.Body = emailAddress + ", " + subscribeTo
  171.         
  172.     cdoMail.Send
  173.     
  174.     set cdoMail = nothing
  175.  
  176.   End If
  177.     
  178.     
  179.     '---------------------------------------------------------------------
  180.     ' send Warranty Information to Rokenbok - register@rokenbok.com
  181.     '---------------------------------------------------------------------
  182.     
  183.     set cdoMail = Server.CreateObject("CDONTS.NewMail")
  184.       
  185.     cdoMail.to="register@rokenbok.com" 
  186.     cdoMail.from=emailAddress 
  187.     cdoMail.subject=subjectWarranty
  188.     
  189.     dim bodyText
  190.    
  191.     bodyText = bodyText + "realname: "                + realname          + vbcrlf + vbcrlf    
  192.     bodyText = bodyText + "E-mail: "                + emailAddress + "  mailto:" + emailAddress     + vbcrlf + vbcrlf
  193.     bodyText = bodyText + "Address: "                + Address             + vbcrlf + vbcrlf
  194.     bodyText = bodyText + "City: "                    + City                 + vbcrlf + vbcrlf
  195.     bodyText = bodyText + "State: "                    + State             + vbcrlf + vbcrlf
  196.     bodyText = bodyText + "Zip: "                    + Zip               + vbcrlf + vbcrlf    
  197.     bodyText = bodyText + "Country: "                   + Country             + vbcrlf + vbcrlf    
  198.     bodyText = bodyText + "Phone: "                    + Phone             + vbcrlf + vbcrlf    
  199.     bodyText = bodyText + "Problems: "                   + Problems          + vbcrlf + vbcrlf        
  200.     bodyText = bodyText + "Newsletter: "               + Newsletter         + vbcrlf + vbcrlf    
  201.     bodyText = bodyText + "ToyPurchased: "               + ToyPurchased         + vbcrlf + vbcrlf        
  202.     bodyText = bodyText + "ToyPurchased2: "            + ToyPurchased2        + vbcrlf + vbcrlf    
  203.     bodyText = bodyText + "ToyPurchased3: "            + ToyPurchased3        + vbcrlf + vbcrlf        
  204.     bodyText = bodyText + "WhoPurchased: "               + WhoPurchased        + vbcrlf + vbcrlf                
  205.     bodyText = bodyText + "FirstDiscover: "               + FirstDiscover        + vbcrlf + vbcrlf    
  206.     bodyText = bodyText + "TypePurchase: "               + TypePurchase        + vbcrlf + vbcrlf        
  207.     bodyText = bodyText + "Features: "                + Features          + vbcrlf + vbcrlf        
  208.     bodyText = bodyText + "ReceiveAsGift: "               + ReceiveAsGift        + vbcrlf + vbcrlf        
  209.     bodyText = bodyText + "ReasonForPurchase: "        + ReasonForPurchase    + vbcrlf + vbcrlf    
  210.     bodyText = bodyText + "PricePaid: "                + PricePaid         + vbcrlf + vbcrlf    
  211.     bodyText = bodyText + "StoreWherePurchased: "    + StoreWherePurchased + vbcrlf + vbcrlf        
  212.     bodyText = bodyText + "PurchaserIs: "               + PurchaserIs        + vbcrlf + vbcrlf        
  213.     bodyText = bodyText + "PurchaserAge: "               + PurchaserAge        + vbcrlf + vbcrlf        
  214.     bodyText = bodyText + "WhoToyIsFor: "               + WhoToyIsFor        + vbcrlf + vbcrlf    
  215.     bodyText = bodyText + "NumToysOwned: "               + NumToysOwned       + vbcrlf + vbcrlf    
  216.     bodyText = bodyText + "NumToysPurchased: "        + NumToysPurchased     + vbcrlf + vbcrlf        
  217.     bodyText = bodyText + "ChildrenUnder17InHouse: " + ChildrenUnder17InHouse + vbcrlf + vbcrlf        
  218.     bodyText = bodyText + "AgeChildInHouse: "        + AgeChildInHouse      + vbcrlf + vbcrlf    
  219.     bodyText = bodyText + "PersCompAtHome: "        + PersCompAtHome       + vbcrlf + vbcrlf        
  220.     bodyText = bodyText + "AccessToInternet: "        + AccessToInternet     + vbcrlf + vbcrlf        
  221.     bodyText = bodyText + "SuggestionsForToys: "    + SuggestionsForToys + vbcrlf + vbcrlf        
  222.     bodyText = bodyText + "OtherProductsLikeToSee: " + OtherProductsLikeToSee + vbcrlf + vbcrlf        
  223.     bodyText = bodyText + "CompareToOtherToys: "    + CompareToOtherToys + vbcrlf + vbcrlf        
  224.     bodyText = bodyText + "OtherConstructionToys: "    + OtherConstructionToys    + vbcrlf + vbcrlf    
  225.     bodyText = bodyText + "AnnualHouseholdIncome: "    + AnnualHouseholdIncome    + vbcrlf + vbcrlf    
  226.     bodyText = bodyText + "KeyCode: "                + KeyCode           + vbcrlf + vbcrlf    
  227.  
  228.                                                
  229.     
  230.     
  231.     cdoMail.Body = bodyText
  232.     
  233.     cdoMail.Send
  234.     
  235.     set cdoMail = nothing
  236.     
  237.     
  238. %>
  239.  
  240.  
  241. <CENTER>
  242.   <TABLE WIDTH="760" BORDER="0" CELLSPACING="0" CELLPADDING="0">
  243.     <TR><A NAME="TOP"></A> 
  244.       <TD ROWSPAN="2" WIDTH="392" VALIGN="TOP"><A HREF="index.html""><IMG SRC="images/toplogo1.gif" WIDTH="148" HEIGHT="58" BORDER="0" ALT="Rokenbok® System"></A><IMG SRC="images/toplogo2.gif" WIDTH="244" HEIGHT="58"></TD>
  245.       <TD VALIGN="TOP"><A HREF="about.html"><IMG SRC="images/1aboutup.gif" WIDTH="58" HEIGHT="36" ALT="About Us" BORDER="0"></A><A HREF="learning.html"><IMG SRC="images/1learnup.gif" WIDTH="97" HEIGHT="36" BORDER="0" ALT="Learning Benefits"></A><A HREF="support.html"><IMG SRC="images/1suppup.gif" WIDTH="54" HEIGHT="36" ALT="Support" BORDER="0"></A><a href="redirect/contact.html"><IMG SRC="images/1contaup.gif" WIDTH="66" HEIGHT="36" ALT="Contact Us" BORDER="0"></A><a href="redirect/dealer_loc.html"><IMG SRC="images/1dealup.gif" WIDTH="93" HEIGHT="36" BORDER="0" ALT="Dealer Locator"></A></TD>
  246.   </TR>
  247.   <TR> 
  248.       <TD VALIGN="TOP"><IMG SRC="images/top_blue_stripe.gif" WIDTH="275" HEIGHT="22"><IMG SRC="images/nodeutsch.gif" WIDTH="93" HEIGHT="22" BORDER="0"></TD>
  249.   </TR>
  250.     <TR VALIGN="TOP"> 
  251.       <TD COLSPAN="2"><IMG SRC="images/top_corner.gif" WIDTH="47" HEIGHT="42"><A HREF="whatis/index.html"><IMG SRC="images/1whatup.gif" WIDTH="140" HEIGHT="42" ALT="What is Rokenbok?" BORDER="0"></A><A HREF="catalog/index.html"><IMG SRC="images/1catup.gif" WIDTH="145" HEIGHT="42" ALT="Toy Catalog" BORDER="0"></A><a href="redirect/czone.html"><IMG SRC="images/1constup.gif" WIDTH="143" HEIGHT="42" ALT="Construction Zone" BORDER="0"></A><IMG SRC="images/top_grey_mid.gif" WIDTH="134" HEIGHT="42"><IMG SRC="images/top_curve_about.gif" WIDTH="151" HEIGHT="42"></TD>
  252. </TR>
  253. </TABLE>
  254.   <TABLE WIDTH="760" BORDER="0" CELLSPACING="0" CELLPADDING="0">
  255.     <TR> 
  256.       <TD WIDTH="20" VALIGN="TOP"><IMG SRC="images/spacer.gif" WIDTH="20" HEIGHT="400"></TD>
  257.       <TD WIDTH="580" VALIGN="TOP"><IMG SRC="images/ahdwarr.gif" WIDTH="580" HEIGHT="26" ALT="WARRANTY REGISTRATION"><BR>
  258.         <BR>
  259.         <table width="580" border="0" cellspacing="0" cellpadding="0">
  260.           <tr> 
  261.             <td valign="top" COLSPAN="2"><IMG SRC="images/bhdthank.gif" WIDTH="400" HEIGHT="23" ALT="Thank You" VSPACE="10"></td>
  262.           </tr>
  263.           <tr> 
  264.             <td width="11" valign="top"><img src="images/spacer.gif" width="11" height="10"></td>
  265.             <td VALIGN="TOP" WIDTH="569"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2">Thank You, your Warranty Information has been submitted!</FONT></td>
  266.           </tr>
  267.         </table>
  268.       </TD>
  269.       <TD WIDTH="10" VALIGN="TOP"><IMG SRC="images/spacer.gif" WIDTH="10" HEIGHT="10"></TD>
  270.       <TD WIDTH="4" VALIGN="TOP" BACKGROUND="images/tile_about.gif"><IMG SRC="images/spacer.gif" WIDTH="4" HEIGHT="10"></TD>
  271.       <TD WIDTH="5" VALIGN="TOP" BGCOLOR="#99CCFF"><IMG SRC="images/spacer.gif" WIDTH="10" HEIGHT="10"></TD>
  272.       <TD WIDTH="126" VALIGN="TOP" BGCOLOR="#99CCFF">
  273.       <!--Insert callout text in column below--> 
  274.         <BR>
  275.       </TD>
  276.       <TD WIDTH="5" VALIGN="TOP" BGCOLOR="#99CCFF"><IMG SRC="images/spacer.gif" WIDTH="10" HEIGHT="10"></TD>
  277.     </TR>
  278.     <TR> 
  279.       <TD VALIGN="TOP" COLSPAN="2"> </TD>
  280.       <TD WIDTH="10" VALIGN="TOP"> </TD>
  281.       <TD WIDTH="4" VALIGN="TOP" BACKGROUND="images/tile_about.gif"> </TD>
  282.       <TD VALIGN="BOTTOM" BGCOLOR="#99CCFF" COLSPAN="3"><IMG SRC="images/corner_about.gif" WIDTH="146" HEIGHT="15"></TD>
  283.     </TR>
  284.   </TABLE>
  285.   <BR>
  286.   <TABLE WIDTH="760" BORDER="0" CELLSPACING="0" CELLPADDING="0">
  287.     <TR VALIGN="TOP">
  288.       <TD WIDTH="20"><IMG SRC="images/spacer.gif" WIDTH="20" HEIGHT="10"></TD>
  289.       <TD><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="#0033CC"><A HREF="index.html"">Home</A> 
  290.         | <A HREF="whatis/index.html">What is Rokenbok?</A> | <A HREF="catalog/index.html">Toy 
  291.         Catalog</A> | <a href="redirect/czone.html">Construction Zone</A> 
  292.         | <A HREF="about.html">About Us</A> | <A HREF="learning.html">Learning 
  293.         Benefits</A> | <A HREF="support.html">Support</A> | Contact Us<BR>
  294.         <a href="redirect/dealer_loc.html">Dealer Locator</A> | <a href="redirect/mailing_list.html">Join 
  295.         Mailing List</A> | <a href="redirect/warranty.html">Warranty Registration</A> | 
  296.         <A HREF="privacy.html">Privacy Statement</A> | <A HREF="terms.html">Terms 
  297.         of Use</A><BR>
  298.         ©2002 by Rokenbok Toy Company. All Rights Reserved.</FONT></TD>
  299.     </TR>
  300.   </TABLE>
  301. <BR>
  302. </CENTER>
  303. </BODY>
  304. </HTML>
  305.